home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-1 / Inter.Net 55-1.iso / CBuilder / Setup / BCB / data.z / dataform.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-02-09  |  3.5 KB  |  110 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1998 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'Dataform.pas' rev: 3.00
  6.  
  7. #ifndef DataformHPP
  8. #define DataformHPP
  9. #include <Frmexprt.hpp>
  10. #include <DBGrids.hpp>
  11. #include <Bde.hpp>
  12. #include <DBCtrls.hpp>
  13. #include <DBTables.hpp>
  14. #include <Db.hpp>
  15. #include <Controls.hpp>
  16. #include <ExtCtrls.hpp>
  17. #include <Forms.hpp>
  18. #include <Graphics.hpp>
  19. #include <StdCtrls.hpp>
  20. #include <Classes.hpp>
  21. #include <Windows.hpp>
  22. #include <SysUtils.hpp>
  23. #include <SysInit.hpp>
  24. #include <System.hpp>
  25.  
  26. //-- user supplied -----------------------------------------------------------
  27.  
  28. namespace Dataform
  29. {
  30. //-- type declarations -------------------------------------------------------
  31. enum TUsedControls { ucGrid, ucScrollBox };
  32.  
  33. class DELPHICLASS TDataForm;
  34. class PASCALIMPLEMENTATION TDataForm : public Forms::TForm 
  35. {
  36.     typedef Forms::TForm inherited;
  37.     
  38. __published:
  39.     Dbtables::TQuery* Query1;
  40.     Dbtables::TQuery* Query2;
  41.     Db::TDataSource* DataSource1;
  42.     Db::TDataSource* DataSource2;
  43.     Extctrls::TPanel* Panel1;
  44.     Dbtables::TTable* Table1;
  45.     Dbtables::TTable* Table2;
  46.     Dbctrls::TDBNavigator* DBNavigator;
  47.     void __fastcall FormCreate(System::TObject* Sender);
  48.     
  49. private:
  50.     int NumFields;
  51.     int XPos;
  52.     int YPos;
  53.     Forms::TScrollBox* FScrollBox;
  54.     Extctrls::TPanel* FScrollPanel;
  55.     Extctrls::TPanel* FGridPanel1;
  56.     Extctrls::TPanel* FGridPanel2;
  57.     int MaxLabelWidth;
  58.     Word CharWidth;
  59.     int LowestControl;
  60.     System::Set<TUsedControls, ucGrid, ucScrollBox>  UsedControls;
  61.     Controls::TControl* __fastcall CreateControl(Frmexprt::PFieldInfo Field);
  62.     System::AnsiString __fastcall CreateName(Classes::TComponent* Component, System::AnsiString Value);
  63.         
  64.     tagPOINT __fastcall GetMaxControlValue(void);
  65.     void __fastcall RestructureForm(int Value);
  66.     
  67. public:
  68.     bool MultiQuery;
  69.     bool ByRow;
  70.     int Pass;
  71.     bool LabelsLeft;
  72.     int LastHeight;
  73.     bool CreateTable;
  74.     bool GenDataSets;
  75.     System::AnsiString UsesName;
  76.     Db::TDataSource* MainDataSource1;
  77.     Db::TDataSource* MainDataSource2;
  78.     void __fastcall NextPass(void);
  79.     Classes::TMemoryStream* __fastcall CreateRes(const System::AnsiString FormName);
  80.     Classes::TMemoryStream* __fastcall CreateHdrSource(const System::AnsiString FilePath, const System::AnsiString 
  81.         FormName);
  82.     Classes::TMemoryStream* __fastcall CreateCppSource(const System::AnsiString FilePath, const System::AnsiString 
  83.         FormName, System::AnsiString DMFileName);
  84.     Classes::TMemoryStream* __fastcall CreateSource(const System::AnsiString FilePath, const System::AnsiString 
  85.         FormName);
  86.     void __fastcall CreateField(const System::AnsiString FieldName, Frmexprt::PFieldInfo Field);
  87.     void __fastcall CreateGrid(void);
  88.     __property Forms::TScrollBox* ScrollBox = {read=FScrollBox};
  89. public:
  90.     /* TCustomForm.Create */ __fastcall virtual TDataForm(Classes::TComponent* AOwner) : Forms::TForm(AOwner
  91.         ) { }
  92.     /* TCustomForm.CreateNew */ __fastcall TDataForm(Classes::TComponent* AOwner, int Dummy) : Forms::TForm(
  93.         AOwner, Dummy) { }
  94.     /* TCustomForm.Destroy */ __fastcall virtual ~TDataForm(void) { }
  95.     
  96. public:
  97.     /* TWinControl.CreateParented */ __fastcall TDataForm(HWND ParentWindow) : Forms::TForm(ParentWindow
  98.         ) { }
  99.     
  100. };
  101.  
  102. //-- var, const, procedure ---------------------------------------------------
  103.  
  104. }    /* namespace Dataform */
  105. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  106. using namespace Dataform;
  107. #endif
  108. //-- end unit ----------------------------------------------------------------
  109. #endif    // Dataform
  110.